(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    149570,       4002]
NotebookOptionsPosition[    128679,       3398]
NotebookOutlinePosition[    130209,       3445]
CellTagsIndexPosition[    129950,       3436]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"zipfile", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$UserBaseDirectory", ",", "\"\<Applications\>\"", ",", 
      "\"\<ThinFilmNLS\>\"", ",", "\"\<zipheader.txt\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.6001096529358006`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"URLFetch", "[", 
  RowBox[{
  "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
   "\"\<Headers\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.6001257546899223`*^9, 3.6001257754639516`*^9}, {
  3.600126180572524*^9, 3.6001262029195566`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Date\"\>", ",", "\<\"Fri, 31 Jan 2014 03:00:07 GMT\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Server\"\>", ",", "\<\"Apache/2.2.22 (Debian)\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Last-Modified\"\>", 
     ",", "\<\"Fri, 31 Jan 2014 02:51:19 GMT\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"ETag\"\>", 
     ",", "\<\"\\\"25c121-cfa2a0-4f13b3f95f7c0\\\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Accept-Ranges\"\>", ",", "\<\"bytes\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Content-Length\"\>", ",", "\<\"13607584\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Content-Type\"\>", ",", "\<\"application/zip\"\>"}], "}"}]}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.6001256938098364`*^9, {3.600125756059924*^9, 3.6001257845959644`*^9}, {
   3.600126152690484*^9, 3.6001262116115685`*^9}, 3.6001263237477283`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"URLSave", "[", 
  RowBox[{"\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.600126233716601*^9, 3.6001262859336753`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Local\\\\Temp\\\\ThinFilmNLS.zip\"\>"], "Output",
 CellChangeTimes->{{3.600126276262662*^9, 3.600126291774684*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\"\<Date\>\"", ",", "\"\<Fri, 31 Jan 2014 02:58:14 GMT\>\""}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Server\>\"", ",", "\"\<Apache/2.2.22 (Debian)\>\""}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Last-Modified\>\"", ",", "\"\<Fri, 31 Jan 2014 02:51:19 GMT\>\""}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\"\<ETag\>\"", ",", "\"\<\\\"25c121-cfa2a0-4f13b3f95f7c0\\\"\>\""}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Accept-Ranges\>\"", ",", "\"\<bytes\>\""}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Content-Length\>\"", ",", "\"\<13607584\>\""}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Content-Type\>\"", ",", "\"\<application/zip\>\""}], "}"}]}],
   "}"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Evaluate", "[", 
   RowBox[{"StringJoin", "@", 
    RowBox[{
     RowBox[{"URLFetch", "[", 
      RowBox[{
      "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
       "\"\<Headers\>\""}], "]"}], "[", 
     RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "===", 
  RowBox[{"Evaluate", "@", 
   RowBox[{"Import", "[", "zipfile", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6000982113102856`*^9, 3.6000982128858886`*^9}, {
  3.600109551995657*^9, 3.6001095878997073`*^9}, {3.600109669369824*^9, 
  3.6001097099048815`*^9}, {3.6001098555470877`*^9, 3.6001098682681055`*^9}, {
  3.6001099083991623`*^9, 3.6001099134801693`*^9}, {3.6001100592883754`*^9, 
  3.600110064559383*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6001095578276653`*^9, 3.6001095752196894`*^9}, {
   3.60010968061084*^9, 3.6001097173258915`*^9}, 3.6001098748591146`*^9, 
   3.600110071809393*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"zipfile", ",", "header"}], "]"}]], "Input",
 CellChangeTimes->{{3.6001100273353305`*^9, 3.6001100314463367`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\zipheader.txt\"\>"], "Output",
 CellChangeTimes->{3.600110044067354*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"header", "=", 
  RowBox[{"StringJoin", "@", 
   RowBox[{
    RowBox[{"URLFetch", "[", 
     RowBox[{
     "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
      "\"\<Headers\>\""}], "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.600109731406911*^9, 3.6001097357069173`*^9}, {
  3.600109785184987*^9, 3.6001097857049875`*^9}, {3.600109819563037*^9, 
  3.600109847377076*^9}, {3.6001100352863417`*^9, 3.600110037766345*^9}}],

Cell[BoxData["\<\"Last-ModifiedThu, 30 Jan 2014 22:18:45 GMT\"\>"], "Output",
 CellChangeTimes->{3.600109894179143*^9, 3.600109946742216*^9, 
  3.6001100432063527`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Evaluate", "@", 
  RowBox[{"Import", "[", "zipfile", "]"}]}]], "Input",
 CellChangeTimes->{{3.6001097190458937`*^9, 3.600109721405897*^9}, {
   3.60010978010398*^9, 3.6001097804739804`*^9}, {3.6001098112630253`*^9, 
   3.6001098130730276`*^9}, 3.600109883269127*^9}],

Cell[BoxData["\<\"Last-ModifiedThu, 30 Jan 2014 22:18:45 GMT\"\>"], "Output",
 CellChangeTimes->{3.600109883849128*^9, 3.600109954533227*^9, 
  3.6001100499273624`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Out", "[", "21", "]"}], "\[Equal]", 
  RowBox[{"Out", "[", "20", "]"}]}]], "Input",
 CellChangeTimes->{{3.600109960653236*^9, 3.600109966554244*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.6001099670642447`*^9}]
}, Open  ]],

Cell[BoxData["\"\<Last-ModifiedThu, 30 Jan 2014 22:16:54 GMT\>\""], "Input",
 CellChangeTimes->{{3.600109839776066*^9, 3.6001098407160673`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox["\"\<Last-ModifiedThu, 30 Jan 2014 22:16:54 GMT\>\"",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Input",
 CellChangeTimes->{{3.600109773493971*^9, 3.600109775383973*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Import", "[", "zipfile", "]"}], "//", "Head"}]], "Input",
 CellChangeTimes->{{3.600109676159834*^9, 3.600109679920839*^9}, {
  3.6001097655419593`*^9, 3.6001097677019625`*^9}}],

Cell[BoxData["String"], "Output",
 CellChangeTimes->{3.60010968065084*^9, 3.600109768301963*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "ThinFilmNLS`"}]], "Input",
 CellChangeTimes->{{3.600098220108701*^9, 3.600098225740311*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Get", "::", "noopen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot open \[NoBreak]\\!\\(\\\"end`\\\"\\)\[NoBreak]. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noopen\\\", \
ButtonNote -> \\\"Get::noopen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6001092411112156`*^9, 3.6001092734862614`*^9, 
  3.600109304061304*^9, 3.6001094709275403`*^9, 3.6001264560639167`*^9, 
  3.600126499038977*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", 
  "\"\<http://packageinstaller.googlecode.com/hg/PackageInstaller/\
PackageInstaller.m\>\""}]], "Input",
 CellChangeTimes->{{3.600085440345248*^9, 3.600085465476284*^9}, {
  3.6000857678537083`*^9, 3.600085768153709*^9}, {3.600085841627812*^9, 
  3.600085843657815*^9}, {3.6000861307182174`*^9, 3.600086152058247*^9}, {
  3.6000865987198763`*^9, 3.6000866022298813`*^9}, {3.6000882924632573`*^9, 
  3.6000883165372915`*^9}, {3.600089231842579*^9, 3.600089247543601*^9}}],

Cell[BoxData[
 RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}]], "Input",
 CellChangeTimes->{{3.6000899460215836`*^9, 3.6000899460315833`*^9}, {
  3.600095112075838*^9, 3.600095114337842*^9}}],

Cell[BoxData["$Path"], "Input",
 CellChangeTimes->{{3.600098312243863*^9, 3.6000983138662663`*^9}, 
   3.600098773125473*^9, {3.600109096834008*^9, 3.6001090984580107`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"URLFetch", "[", 
  RowBox[{
  "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
   "\"\<Headers\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.600090516931161*^9, 3.600090518413163*^9}, {
   3.6000905726710587`*^9, 3.600090593421095*^9}, {3.6000907608289895`*^9, 
   3.6000907620925913`*^9}, {3.6000911654081006`*^9, 3.600091168996107*^9}, {
   3.600091245233441*^9, 3.600091247386245*^9}, {3.6000913104279556`*^9, 
   3.600091312081558*^9}, 3.6000939737784367`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Date\"\>", ",", "\<\"Thu, 30 Jan 2014 19:50:47 GMT\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Server\"\>", ",", "\<\"Apache/2.2.22 (Debian)\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Last-Modified\"\>", 
     ",", "\<\"Thu, 30 Jan 2014 19:50:47 GMT\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"ETag\"\>", 
     ",", "\<\"W/\\\"25c121-cfa289-4f1356c8419c0\\\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Accept-Ranges\"\>", ",", "\<\"bytes\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Content-Length\"\>", ",", "\<\"13607561\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Content-Type\"\>", ",", "\<\"application/zip\"\>"}], "}"}]}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.600090594263497*^9, 3.600090775337015*^9, 3.600091174924117*^9, {
   3.600091240678233*^9, 3.600091254468657*^9}, 3.600091314764763*^9, 
   3.6000939816876507`*^9, 3.600095127317065*^9, 3.600100564142621*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileExistsQ", "@", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.600091320926774*^9, 3.6000913581982393`*^9}, {
  3.6001007400827303`*^9, 3.600100754842356*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.600091326339983*^9, 3.6000913588066406`*^9}, 
   3.6001007567767596`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZipExtractArchive", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
     "]"}], ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
     "]"}], ",", 
    RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}]}], "]"}], 
  "\n"}]], "Input",
 CellChangeTimes->{{3.600100778055197*^9, 3.600100784232808*^9}, 
   3.6001008820257807`*^9}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\"\
\>"], "Output",
 CellChangeTimes->{{3.600100883429783*^9, 3.6001009032230177`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zipfile", "=", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "$UserBaseDirectory", ",", "\"\<Applications\>\"", ",", 
     "\"\<ThinFilmNLS\>\"", ",", "\"\<zipheader.txt\>\""}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6001096190617523`*^9, 3.600109644595789*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\zipheader.txt\"\>"], "Output",
 CellChangeTimes->{
  3.6001008158312635`*^9, {3.600109639135781*^9, 3.6001096451757894`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$ContextPath"], "Input",
 CellChangeTimes->{{3.6000913935011015`*^9, 3.60009139835271*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"PacletManager`\"\>", ",", "\<\"QuantityUnits`\"\>", 
   ",", "\<\"WebServices`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.6000913990703115`*^9, 3.6000914183987455`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "\"\<PacletManager`*\>\""}]], "Input",
 CellChangeTimes->{{3.600091429661965*^9, 3.6000914402543836`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["PacletManager`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["PacletManager`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["CreatePaclet",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"CreatePaclet", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["PacletSiteRemove",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSiteRemove", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["GetVirtualCellGroup",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "GetVirtualCellGroup", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["PacletSites",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSites", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PackPaclet",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PackPaclet", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["PacletSiteUpdate",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSiteUpdate", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["Paclet",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3600069841-5683841", {"Paclet", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["PacletUninstall",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletUninstall", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletCheckUpdate",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletCheckUpdate", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["PacletUpdate",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletUpdate", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletDirectoryAdd",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletDirectoryAdd", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["RebuildPacletData",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"RebuildPacletData", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletDirectoryRemove",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "PacletDirectoryRemove", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["RestartPacletManager",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "RestartPacletManager", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletDisable",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletDisable", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["SetInternetProxy",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"SetInternetProxy", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletEnable",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletEnable", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["UnpackPaclet",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"UnpackPaclet", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletFind",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletFind", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["UseInternetProxy",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"UseInternetProxy", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletFindRemote",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletFindRemote", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["VerifyPaclet",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"VerifyPaclet", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletInformation",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletInformation", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["ZipExtractArchive",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"ZipExtractArchive", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletInstall",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletInstall", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["ZipGetFile",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"ZipGetFile", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletInstallQueued",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "PacletInstallQueued", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$AllowDataUpdates",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"$AllowDataUpdates", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletManager",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletManager", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$AllowDocumentationUpdates",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "$AllowDocumentationUpdates", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletManagerEnabled",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "PacletManagerEnabled", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$AllowInternet",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"$AllowInternet", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletNewerQ",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletNewerQ", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$BasePacletsDirectory",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "$BasePacletsDirectory", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletResource",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletResource", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$InternetProxyRules",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "$InternetProxyRules", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletSetLoading",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSetLoading", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$PacletSite",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"$PacletSite", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletSite",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSite", "PacletManager`"}},
          ButtonNote->"PacletManager`"], 
         ButtonBox["$UserBasePacletsDirectory",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {
            "$UserBasePacletsDirectory", "PacletManager`"}},
          ButtonNote->"PacletManager`"]},
        {
         ButtonBox["PacletSiteAdd",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3600069841-5683841", {"PacletSiteAdd", "PacletManager`"}},
          ButtonNote->"PacletManager`"], ""}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.475]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.6000914413151855`*^9}],

Cell[BoxData[
 StyleBox["\<\"ZipGetFile[\\\"zipfile\\\", \\\"requestedFile\\\"]\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3600069841-5683841"]
}, Open  ]]
}, Open  ]],

Cell[BoxData["DeleteFile"], "Input",
 CellChangeTimes->{{3.600097802670166*^9, 3.600097802685766*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PacletInformation", "[", "\"\<ThinFilmNLS\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6000933989014263`*^9, 3.6000934410527*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"ThinFilmNLS\"\>"}], ",", 
   RowBox[{"\<\"Version\"\>", "\[Rule]", "\<\"0.0.2\"\>"}], ",", 
   RowBox[{"\<\"BuildNumber\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Qualifier\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"MathematicaVersion\"\>", "\[Rule]", "\<\"6+\"\>"}], ",", 
   RowBox[{"\<\"SystemID\"\>", "\[Rule]", "All"}], ",", 
   RowBox[{"\<\"Description\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Category\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Creator\"\>", "\[Rule]", "\<\"Dan O'Brien\"\>"}], ",", 
   RowBox[{"\<\"Publisher\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Support\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Internal\"\>", "\[Rule]", "False"}], ",", 
   RowBox[{"\<\"Location\"\>", 
    "\[Rule]", "\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\"\
\>"}], ",", 
   RowBox[{"\<\"Context\"\>", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"\<\"Enabled\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"Loading\"\>", "\[Rule]", "Manual"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6000934358890915`*^9, 3.6000934416455016`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$ContextPath"], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"Utilities`URLTools`\"\>", ",", "\<\"JLink`\"\>", 
   ",", "\<\"PacletManager`\"\>", ",", "\<\"QuantityUnits`\"\>", 
   ",", "\<\"WebServices`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.6000972553242035`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NotebookOpen", "@", 
  RowBox[{"FileNameJoin", "@", 
   RowBox[{"{", 
    RowBox[{
    "$InstallationDirectory", ",", "\"\<SystemFiles\>\"", ",", 
     "\"\<Autoload\>\"", ",", "\"\<PacletManager\>\"", ",", "\"\<Kernel\>\"", 
     ",", "\"\<Manager.m\>\""}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.60009375933346*^9, 3.60009375933346*^9}}],

Cell[BoxData[
 TemplateBox[{FrontEndObject[
    LinkObject["pw7_shm", 3, 1]],887,
   "FrontEndObject[LinkObject[\"pw7_shm\", 3, 1]]","887","\"Manager.m\"",
   "\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Autoload\\\\PacletManager\\\\\
Kernel\\\\Manager.m\""},
  "NotebookObject"]], "Output",
 CellChangeTimes->{3.60009376513667*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"file", "=", 
  RowBox[{"ProgressIndicator", "[", 
   RowBox[{"URLSave", "[", 
    RowBox[{"\"\<massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$TemporaryDirectory", ",", " ", "\"\<ThinFilmNLS.zip\>\""}], 
       "}"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.600090008683671*^9, 3.6000900265606985`*^9}, {
  3.600090063797964*^9, 3.6000901050454364`*^9}, {3.6000903151194057`*^9, 
  3.6000903181770105`*^9}, {3.6000904395208244`*^9, 3.6000904814878983`*^9}, {
  3.600096477904438*^9, 3.600096481414444*^9}, {3.6000973218955207`*^9, 
  3.6000973352335443`*^9}, {3.600097366464799*^9, 3.6000973696004047`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"OptionValue", "::", "nodef"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Unknown option \[NoBreak]\\!\\(\\\"Print\\\"\\)\[NoBreak] \
for \[NoBreak]\\!\\(URLSave\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/OptionValue\\\", ButtonNote -> \
\\\"OptionValue::nodef\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000973296487346`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "optx"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Unknown option \[NoBreak]\\!\\(\\\"Print\\\"\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"\\\\\\\\(file = \
\\\\\\\\(URLSave[\\\\\\\\(\\\\\\\"massaricloud.chem.umn.edu/ThinFilmNLS.zip\\\
\\\\\", \\\\\\\\(FileNameJoin[\\\\\\\\({$TemporaryDirectory, \
\\\\\\\"ThinFilmNLS.zip\\\\\\\"}\\\\\\\\)]\\\\\\\\), \\\\\\\\(\\\\\\\"Print\\\
\\\\\" \\\\[Rule] True\\\\\\\\)\\\\\\\\)]\\\\\\\\)\\\\\\\\)\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/optx\\\", \
ButtonNote -> \\\"General::optx\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000973296643343`*^9}],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{{3.600097320928319*^9, 3.6000973296799345`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"??", "URLSave"}]], "Input",
 CellChangeTimes->{{3.6000973392895517`*^9, 3.6000973450615616`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"file", "=", 
  "\"\<C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Local\\\\Temp\\\\ThinFilmNLS.zip\>\""}]], "Input",
 CellChangeTimes->{{3.600091476525447*^9, 3.6000914825158577`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Local\\\\Temp\\\\ThinFilmNLS.zip\"\>"], "Output",
 CellChangeTimes->{3.6000914834206595`*^9, 3.600094018722116*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileDate", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.600094022856123*^9, 3.600094028893334*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2014", ",", "1", ",", "30", ",", "11", ",", "8", ",", "22.`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.600094029470535*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZipExtractArchive", "[", 
   RowBox[{"file", ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
     "]"}], ",", 
    RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6000903217494173`*^9, 3.60009035165467*^9}, {
  3.600091486431465*^9, 3.600091534229949*^9}, {3.600093374782784*^9, 
  3.600093382770998*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\"\
\>"], "Output",
 CellChangeTimes->{{3.600090354150674*^9, 3.600090373109508*^9}, {
  3.600091490986673*^9, 3.6000915136223125`*^9}, {3.6000933783863907`*^9, 
  3.6000933845494013`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "CopyRemote"}]], "Input",
 CellChangeTimes->{{3.6000887017818327`*^9, 3.6000887669639244`*^9}, {
  3.60008879957597*^9, 3.6000888012969723`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"CopyRemote[urlfile] copies a urlfile as \
URLFileNameTake[urlfile] to $TemporaryDirectory.\\n CopyRemote[url, \
localfile] copies a file from an http location to localfile.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.600088801746973*^9},
 CellTags->"Info3600067201-5951972"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "CopyRemote", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "CopyRemote", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ProxyHost", "\[RuleDelayed]", "None"}], ",", 
           RowBox[{"ProxyPort", "\[RuleDelayed]", "None"}], ",", 
           RowBox[{"Print", "\[Rule]", "True"}], ",", 
           RowBox[{"StringReplace", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"%20\"\>", "\[Rule]", "\<\" \"\>"}], "}"}]}]}], 
          "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[CopyRemote`CopyRemote],
  Editable->False]], "Print",
 CellChangeTimes->{3.6000888017569733`*^9},
 CellTags->"Info3600067201-5951972"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Context", "[", "CopyRemote", "]"}]], "Input",
 CellChangeTimes->{{3.600088809366984*^9, 3.60008881359699*^9}}],

Cell[BoxData["\<\"CopyRemote`\"\>"], "Output",
 CellChangeTimes->{3.600088814146991*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Contexts", "[", "\"\<C*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6000888209110007`*^9, 3.600088831701016*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Calendar`\"\>", ",", "\<\"Calendar`Legacy`\"\>", 
   ",", "\<\"CCodeGenerator`\"\>", ",", "\<\"CCompilerDriver`\"\>", 
   ",", "\<\"Cell$$986`\"\>", ",", "\<\"Charting`\"\>", 
   ",", "\<\"ClusterAnalysis`FindClusters`\"\>", ",", "\<\"Compile`\"\>", 
   ",", "\<\"CompileDefinition`Private`\"\>", ",", "\<\"Compiler`\"\>", 
   ",", "\<\"ComplexAnalysis`\"\>", 
   ",", "\<\"ComputationalGeometry`Dump`\"\>", 
   ",", "\<\"ComputationalGeometry`Methods`\"\>", 
   ",", "\<\"ComputationalGeometry`Surface`\"\>", ",", "\<\"Conditional`\"\>",
    ",", "\<\"Control`\"\>", ",", "\<\"Control`AffineModelUtilities`\"\>", 
   ",", "\<\"Control`CommonDump`\"\>", 
   ",", "\<\"Control`ConnectionsDump`\"\>", 
   ",", "\<\"Control`PCSModelsDump`\"\>", 
   ",", "\<\"Control`PlotUtilities`\"\>", 
   ",", "\<\"Control`PoleAssignmentDump`\"\>", 
   ",", "\<\"Control`PropertiesDump`\"\>", 
   ",", "\<\"Control`RealizationsDump`\"\>", ",", "\<\"ControlSystems`\"\>", 
   ",", "\<\"Control`TimeDelaysDump`\"\>", ",", "\<\"Conversion`\"\>", 
   ",", "\<\"Convert`TeX`\"\>", ",", "\<\"CopyRemote`\"\>", 
   ",", "\<\"CopyRemote`Private`\"\>", ",", "\<\"CUDAInformation`\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6000888322910166`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileExistsQ", "[", 
  "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6000882302621703`*^9, 3.600088249323197*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.600088249723198*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InstallPackage", "[", 
  RowBox[{"\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
   RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6000861779882836`*^9, 3.60008620393032*^9}, {
  3.60008676523011*^9, 3.6000868226781917`*^9}, {3.6000870110774565`*^9, 
  3.60008701348746*^9}, {3.6000892815046487`*^9, 3.6000892948846674`*^9}, {
  3.6000895946010885`*^9, 3.600089597241092*^9}}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\Indices.m\"\>"], "Print",
 CellChangeTimes->{3.6000896049741044`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Java", "::", "excptn"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"A Java exception occurred: \
\[NoBreak]\\!\\(\\\"java.io.FileNotFoundException: C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\ThinFilmNLS\\\\\\\\Data\\\\\\\\Indices.m (The system cannot find the \
path specified)\\\\n\\\\tat java.io.FileOutputStream.open(Native Method)\\\\n\
\\\\tat java.io.FileOutputStream.<init>(FileOutputStream.java:179)\\\\n\\\\\
tat java.io.FileOutputStream.<init>(FileOutputStream.java:70)\\\\n\\\\tat \
sun.reflect.GeneratedConstructorAccessor2.newInstance(Unknown \
Source)\\\\n\\\\tat \
sun.reflect.DelegatingConstructorAccessorImpl.newInstance(\
DelegatingConstructorAccessorImpl.java:27)\\\\n\\\\tat \
java.lang.reflect.Constructor.newInstance(Constructor.java:513)\\\"\\)\
\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896051441045`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "fail"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Error calling constructor for class \
\[NoBreak]\\!\\(\\\"java.io.FileOutputStream\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote \
-> \\\"JLink`JavaNew::fail\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896052541046`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "argx1"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Incorrect number or type of arguments to constructor for \
class \[NoBreak]\\!\\(\\\"java.io.BufferedOutputStream\\\"\\)\[NoBreak]. The \
argument was \[NoBreak]\\!\\($Failed\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote -> \
\\\"JLink`JavaNew::argx1\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896054041047`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\Indices.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896054041047`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Java", "::", "excptn"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"A Java exception occurred: \
\[NoBreak]\\!\\(\\\"java.io.FileNotFoundException: C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\ThinFilmNLS\\\\\\\\Data\\\\\\\\Indices.nb (The system cannot find the \
path specified)\\\\n\\\\tat java.io.FileOutputStream.open(Native Method)\\\\n\
\\\\tat java.io.FileOutputStream.<init>(FileOutputStream.java:179)\\\\n\\\\\
tat java.io.FileOutputStream.<init>(FileOutputStream.java:70)\\\\n\\\\tat \
sun.reflect.GeneratedConstructorAccessor2.newInstance(Unknown \
Source)\\\\n\\\\tat \
sun.reflect.DelegatingConstructorAccessorImpl.newInstance(\
DelegatingConstructorAccessorImpl.java:27)\\\\n\\\\tat \
java.lang.reflect.Constructor.newInstance(Constructor.java:513)\\\"\\)\
\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.600089605564105*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "fail"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Error calling constructor for class \
\[NoBreak]\\!\\(\\\"java.io.FileOutputStream\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote \
-> \\\"JLink`JavaNew::fail\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.600089605734105*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "argx1"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Incorrect number or type of arguments to constructor for \
class \[NoBreak]\\!\\(\\\"java.io.BufferedOutputStream\\\"\\)\[NoBreak]. The \
argument was \[NoBreak]\\!\\($Failed\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote -> \
\\\"JLink`JavaNew::argx1\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896059141054`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yyzz, 295].m\"\>"], "Print",
 CellChangeTimes->{3.6000896059241056`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Java", "::", "excptn"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"A Java exception occurred: \
\[NoBreak]\\!\\(\\\"java.io.FileNotFoundException: C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\ThinFilmNLS\\\\\\\\Data\\\\\\\\TQzLISTex[IR, yyzz, 295].m (The system \
cannot find the path specified)\\\\n\\\\tat \
java.io.FileOutputStream.open(Native Method)\\\\n\\\\tat \
java.io.FileOutputStream.<init>(FileOutputStream.java:179)\\\\n\\\\tat \
java.io.FileOutputStream.<init>(FileOutputStream.java:70)\\\\n\\\\tat \
sun.reflect.GeneratedConstructorAccessor2.newInstance(Unknown \
Source)\\\\n\\\\tat \
sun.reflect.DelegatingConstructorAccessorImpl.newInstance(\
DelegatingConstructorAccessorImpl.java:27)\\\\n\\\\tat \
java.lang.reflect.Constructor.newInstance(Constructor.java:513)\\\"\\)\
\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896060241055`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Java :: \
excptn\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896060541058`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "fail"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Error calling constructor for class \
\[NoBreak]\\!\\(\\\"java.io.FileOutputStream\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote \
-> \\\"JLink`JavaNew::fail\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.6000896061741056`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(JavaNew \
:: fail\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.600089606184106*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"JavaNew", "::", "argx1"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Incorrect number or type of arguments to constructor for \
class \[NoBreak]\\!\\(\\\"java.io.BufferedOutputStream\\\"\\)\[NoBreak]. The \
argument was \[NoBreak]\\!\\($Failed\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:JLink/ref/JavaNew\\\", ButtonNote -> \
\\\"JLink`JavaNew::argx1\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.600089606344106*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(JavaNew \
:: argx1\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6000893510997467`*^9, 3.600089606364106*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yyzz, 295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896064141064`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yyzz, 2].m\"\>"], "Print",
 CellChangeTimes->{3.6000896064741063`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yyzz, 2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896065241065`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yzyz, 295].m\"\>"], "Print",
 CellChangeTimes->{3.6000896066041064`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yzyz, 295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896066541066`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yzyz, 2].m\"\>"], "Print",
 CellChangeTimes->{3.6000896067141066`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[IR, yzyz, 2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896067541065`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yyzz, 295].m\"\>"], "Print",
 CellChangeTimes->{3.600089606814107*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yyzz, 295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600089606864107*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yyzz, 2].m\"\>"], "Print",
 CellChangeTimes->{3.600089606924107*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yyzz, 2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896069741073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yzyz, 295].m\"\>"], "Print",
 CellChangeTimes->{3.600089607034107*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yzyz, 295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600089607074107*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yzyz, 2].m\"\>"], "Print",
 CellChangeTimes->{3.6000896071241074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\TQzLISTex[VIS, yzyz, 2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6000896071641073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\n_Si_0.2-6.6eV.txt\"\>"], "Print",
 CellChangeTimes->{3.6000896072241077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\n_ptcdi-c8_1500-3500cm-1.txt\"\>"], "Print",
 CellChangeTimes->{3.6000896072341075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Data\\\\n_ptcdi-c8_250-1100nm.txt\"\>"], "Print",
 CellChangeTimes->{3.6000896072341075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\DownValues\\\\InputTransferC.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072341075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\DownValues\\\\OutputTransferC.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072441072`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Figures\\\\Fig1.TIF\"\>"], "Print",
 CellChangeTimes->{3.6000896072441072`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Figures\\\\Fig1.jpg\"\>"], "Print",
 CellChangeTimes->{3.6000896072641077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\InterfacialThinFilmInterferenceModel.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072841077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Kernel\\\\init.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072941074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\KramersKronigOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072941074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\NumericalOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072941074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Scrap.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072941074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\ThinFilmNLS.m\"\>"], "Print",
 CellChangeTimes->{3.6000896072941074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\TransferMatrixFormalism.m\"\>"], "Print",
 CellChangeTimes->{3.6000896073041077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Usages\\\\InterfacialThinFilmInterferenceModel.m\"\>"], "Print",
 CellChangeTimes->{3.6000896073041077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Usages\\\\InterfacialThinFilmInterferenceModel.nb\"\>"], "Print",
 CellChangeTimes->{3.600089607314108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Usages\\\\TransferMatrixFormalism.m\"\>"], "Print",
 CellChangeTimes->{3.600089607314108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Usages\\\\TransferMatrixFormalism.nb\"\>"], "Print",
 CellChangeTimes->{3.600089607314108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Guides\\\\Thin Film Interference \
Model.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896073241076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Guides\\\\Transfer Matrix Formalism.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6000896073441076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Index\\\\_4.cfs\"\>"], "Print",
 CellChangeTimes->{3.6000896073441076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Index\\\\segments.gen\"\>"], "Print",
 CellChangeTimes->{3.6000896073641076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Index\\\\segments_b\"\>"], "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\AbelesS.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\AbelesSIIv.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\AbelesSIv.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\AzimuthAngle.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\DetectionSide.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\ExternalTransferC.\
nb\"\>"], "Print",
 CellChangeTimes->{3.6000896073741074`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\FresnelA.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6000896073841076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\FresnelL.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600089607394108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\GaussianOSC.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600089607394108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\\
ImKramersKronigTransformRe.nb\"\>"], "Print",
 CellChangeTimes->{3.600089607394108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\Incidence.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.6000896074041076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\InputTransferC.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896074141073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\InterfaceSide.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896074141073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\InternalTransferC.\
nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074141073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\\
LocalFieldsFromLimits.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074241076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\LorentzianOSC.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896074241076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\\
NonlinearPolarization.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074241076`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\OutputTransferC.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600089607434108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\PhaseMatchAngle.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600089607434108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\PhaseMv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6000896074441075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\ReflectBottomS.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896074441075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\ReflectTopS.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6000896074441075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\RefractionAngle.nb\
\"\>"], "Print",
 CellChangeTimes->{3.6000896074441075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\RefractionMv.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6000896074541073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\SheetThickness.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6000896074541073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\\
TransferCoefficientMethod.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074541073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\TransmitBottomS.nb\
\"\>"], "Print",
 CellChangeTimes->{3.6000896074541073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\TransmitTopS.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6000896074541073`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\ReferencePages\\\\Symbols\\\\VoigtOSC.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6000896074641075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\SpellIndex\\\\_6.cfs\"\>"], "Print",
 CellChangeTimes->{3.6000896074641075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\SpellIndex\\\\segments.gen\"\>"], "Print",
 CellChangeTimes->{3.6000896074641075`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\SpellIndex\\\\segments_f\"\>"], "Print",
 CellChangeTimes->{3.6000896074741077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Tutorials\\\\Methods to Compute Input Transfer \
Coefficients.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074741077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Tutorials\\\\Nonlinear Spectroscopy of Thin \
Film Systems.nb\"\>"], "Print",
 CellChangeTimes->{3.6000896074741077`*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\Documentation\\\\English\\\\Tutorials\\\\ThinFilmNLSOverview.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600089607484108*^9}],

Cell[BoxData["\<\"extracting: C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\\\
\\PacletInfo.m\"\>"], "Print",
 CellChangeTimes->{3.600089607484108*^9}]
}, Open  ]],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\"\>"], "Output",
 CellChangeTimes->{3.600086823088192*^9, 3.6000870291514835`*^9, 
  3.6000880992669864`*^9, 3.600089298144672*^9, 3.60008935343975*^9, 
  3.600089607524108*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$WebRepository"], "Input"],

Cell[BoxData["\<\"googlecode.com/hg/\"\>"], "Output",
 CellChangeTimes->{3.6000868576422405`*^9, 3.6000871171846066`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "ThinFilmNLS`"}]], "Input",
 CellChangeTimes->{{3.600086254525391*^9, 3.6000862627554026`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UninstallPackage", "[", "\"\</ThinFilmNLS`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.60008630408646*^9, 3.6000863637245455`*^9}, {
  3.60008664334894*^9, 3.600086649368948*^9}}],

Cell[BoxData[
 RowBox[{"UninstallPackage", "[", "\<\"/ThinFilmNLS`\"\>", "]"}]], "Output",
 CellChangeTimes->{
  3.6000863641845465`*^9, 3.600086398118594*^9, {3.600086628704919*^9, 
   3.600086649868949*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$WebRepository"], "Input"],

Cell[BoxData["\<\"googlecode.com/hg/\"\>"], "Output",
 CellChangeTimes->{3.6000867290290594`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "AbelesS"}]], "Input",
 CellChangeTimes->{{3.6000862711964145`*^9, 3.600086272886417*^9}}],

Cell[BoxData[
 StyleBox["\<\"\\\"AbelesS[\\\\\\\"pol\\\\\\\",\[Omega],{{\\!\\(\\*\
SubscriptBox[\\(\[Theta]\\), \\(0\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \
\\(0\\)]\\)},{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \
\\(1\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\),\\!\\(\\*SubscriptBox[\
\\(d\\), \\(1\\)]\\)}..{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(k\\)]\\),\\!\
\\(\\*SubscriptBox[\\(n\\), \\(k\\)]\\),\\!\\(\\*SubscriptBox[\\(d\\), \
\\(k\\)]\\)},{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(k + \
1\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \\(k + 1\\)]\\)}}] calculates the \
total system transfer matrix at frequency \[Omega] with specified material \
refaction angles \\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(i\\)]\\), \
refractive indices \\!\\(\\*SubscriptBox[\\(n\\), \\(i\\)]\\), and thin film \
layer thicknesses \\!\\(\\*SubscriptBox[\\(d\\), \\(i\\)]\\).  Eq. \
15\\\"\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.600086273706418*^9},
 CellTags->"Info3600064673-6328747"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "InstallPackage"}]], "Input",
 CellChangeTimes->{{3.600085479917304*^9, 3.6000854909783196`*^9}, {
  3.6000855311083755`*^9, 3.6000855516494045`*^9}, {3.600086287486437*^9, 
  3.60008628924644*^9}, {3.600086692999009*^9, 3.6000866942290106`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"InstallPackage[\\\"MyPackage`\\\"] downloads and unzips \
MyPackage.zip \\nfrom $WebRepository \
(http://mypackage.googlecode.com/MyPackage/MyPackage.zip by default) \\nto \
the directory specified by the option Directory (installing to \
$UserBaseDirectory/Applications by default)\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellChangeTimes->{3.6000866949190116`*^9},
 CellTags->"Info3600065094-5951972"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "InstallPackage", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "InstallPackage", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directory", "\[RuleDelayed]", "$InstallerDirectory"}], 
           ",", 
           RowBox[{"Print", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[PackageInstaller`InstallPackage],
  Editable->False]], "Print",
 CellChangeTimes->{3.6000866949290113`*^9},
 CellTags->"Info3600065094-5951972"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Context", "[", "InstallPackage", "]"}]], "Input",
 CellChangeTimes->{{3.6000855587404146`*^9, 3.6000855636704216`*^9}}],

Cell[BoxData["\<\"PackageInstaller`\"\>"], "Output",
 CellChangeTimes->{3.6000855642704225`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NotebookOpen", "[", "\"\<PackageInstaller.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6000855967714677`*^9, 3.600085607721483*^9}}],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.6000856086214848`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["NotebookPath"], "Input",
 CellChangeTimes->{{3.600085682938589*^9, 3.600085697128609*^9}}],

Cell[BoxData["NotebookPath"], "Output",
 CellChangeTimes->{{3.6000856870885954`*^9, 3.60008569753861*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Contexts", "[", "\"\<P*`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.600085780883727*^9, 3.600085795734748*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Package`\"\>", ",", "\<\"PackageInstaller`\"\>", 
   ",", "\<\"PackageInstaller`Private`\"\>", ",", "\<\"PacletManager`\"\>", 
   ",", "\<\"PacletManager`Collection`Private`\"\>", 
   ",", "\<\"PacletManager`Documentation`Private`\"\>", 
   ",", "\<\"PacletManager`Extension`Private`\"\>", 
   ",", "\<\"PacletManager`Information`\"\>", 
   ",", "\<\"PacletManager`LayoutDocsCollection`Private`\"\>", 
   ",", "\<\"PacletManager`Manager`Private`\"\>", 
   ",", "\<\"PacletManager`MemoryCollection`Private`\"\>", 
   ",", "\<\"PacletManager`Package`\"\>", 
   ",", "\<\"PacletManager`Packer`Private`\"\>", 
   ",", "\<\"PacletManager`Paclet`Private`\"\>", 
   ",", "\<\"PacletManager`Private`\"\>", 
   ",", "\<\"PacletManager`Services`Private`\"\>", 
   ",", "\<\"PacletManager`Utils`Private`\"\>", 
   ",", "\<\"PacletManager`Zip`Private`\"\>", ",", "\<\"PacletTools`\"\>", 
   ",", "\<\"Parallel`Debug`\"\>", ",", "\<\"Parallel`Developer`\"\>", 
   ",", "\<\"Parallel`Information`\"\>", ",", "\<\"Parallel`Palette`\"\>", 
   ",", "\<\"Parallel`Palette`Private`\"\>", ",", "\<\"Parallel`Private`\"\>",
    ",", "\<\"Parallel`Settings`\"\>", ",", "\<\"Parallel`Static`\"\>", 
   ",", "\<\"Periodic`\"\>", ",", "\<\"Periodic`Private`\"\>", 
   ",", "\<\"PlanetaryAstronomy`\"\>", ",", "\<\"Predictions`\"\>", 
   ",", "\<\"PredictiveInterface`\"\>", ",", "\<\"Product`\"\>", 
   ",", "\<\"Proxy`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.600085783854731*^9, 3.6000857961547484`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$ContextPath"], "Input",
 CellChangeTimes->{{3.6000858255867896`*^9, 3.6000858283777933`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"PacletManager`\"\>", ",", "\<\"QuantityUnits`\"\>", 
   ",", "\<\"WebServices`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6000858293777947`*^9, 3.6000861381282277`*^9, 3.600088889875098*^9, {
   3.60008891991514*^9, 3.600088931025156*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "Unzip`Unzip`"}]], "Input",
 CellChangeTimes->{{3.6000889258951483`*^9, 3.600088961878199*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Get", "::", "noopen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot open \[NoBreak]\\!\\(\\\"Unzip`Unzip`\\\"\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/noopen\\\", ButtonNote -> \
\\\"Get::noopen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.600088928175152*^9, 3.6000889621481996`*^9}}],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{{3.6000889442661743`*^9, 3.6000889621481996`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zip", "=", 
  RowBox[{"CopyRemote`CopyRemote", "[", 
   RowBox[{"\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", ",", 
    RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6000889945502453`*^9, 3.600089049904323*^9}}],

Cell[BoxData[
 RowBox[{"CopyRemote`CopyRemote", "[", 
  RowBox[{"\<\"http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\"\>", ",", 
   RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]], "Output",
 CellChangeTimes->{3.600089050514324*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Other untitled", "Section",
 CellChangeTimes->{{3.600249727364894*^9, 3.600249733415902*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", 
  "\"\<C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\\
TransferMatrixFormalism\\\\TransferMatrixFormalism.m\>\""}]], "Input",
 CellChangeTimes->{{3.600220507530759*^9, 3.6002205150617695`*^9}, {
  3.600221053996526*^9, 3.6002211411326485`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Release 0.0.2\\n- initial stable version from local \
repository\"\>"], "Print",
 CellChangeTimes->{{3.6002211421626496`*^9, 3.600221168674687*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\\
TransferMatrixFormalism\\\\\"\>"], "Print",
 CellChangeTimes->{{3.6002211421626496`*^9, 3.600221168674687*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Exit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.6001265282710185`*^9, 3.600126529981021*^9}, {
  3.600220875264275*^9, 3.6002208757942753`*^9}}],

Cell[BoxData["FileBaseName"], "Input",
 CellChangeTimes->{{3.6002206596229725`*^9, 3.6002206619729757`*^9}, {
  3.6002209751694155`*^9, 3.600220977579418*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.600217450820238*^9, 3.6002174533102417`*^9}}],

Cell[BoxData["URLJoin"], "Input",
 CellChangeTimes->{{3.6002178223277597`*^9, 3.6002178235077615`*^9}}],

Cell[BoxData["$Path"], "Input",
 CellChangeTimes->{{3.6001814269143333`*^9, 3.6001814339643435`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<http://massaricloud.chem.umn.edu/\>\"", ",", "\"\<ThinFilmNLS\>\""}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6002176764115543`*^9, 3.6002176918815765`*^9}}],

Cell[BoxData["\<\"http:\\\\massaricloud.chem.umn.edu\\\\ThinFilmNLS\"\>"], \
"Output",
 CellChangeTimes->{3.600217692401577*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Directory", "[", "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan O'Brien\\\\Documents\"\>"], "Output",
 CellChangeTimes->{3.6002177356216383`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Last", "@", 
  RowBox[{
  "FileNameSplit", "[", "\"\<C:\\\\Users\\\\Dan O'Brien\\\\Documents\\\\\>\"",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.6002174560302453`*^9, 3.60021747351127*^9}, {
  3.600217517652332*^9, 3.6002175220523376`*^9}, {3.600217739411643*^9, 
  3.6002177425326476`*^9}}],

Cell[BoxData["\<\"Documents\"\>"], "Output",
 CellChangeTimes->{{3.600217456630246*^9, 3.6002174738912706`*^9}, 
   3.6002175224823384`*^9, 3.600217743072648*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$UserBaseDirectory", ",", "\"\<Applications\>\"", ",", 
      "\"\<ThinFilmNLS\>\""}], "}"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"release", ",", "zipfile"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"release", "[", "filetext_String", "]"}], ":=", 
     RowBox[{"StringTrim", "[", 
      RowBox[{"filetext", ",", 
       RowBox[{"RegularExpression", "[", "\"\<\\n.*\>\"", "]"}]}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"release", "[", "\"\<newest\>\"", "]"}], "=", 
     RowBox[{
     "Import", "[", 
      "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"release", "[", "\"\<file\>\"", "]"}], "=", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directory", "[", "]"}], ",", "\"\<releasenotes.txt\>\""}], 
       "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"FileExistsQ", "[", 
        RowBox[{"release", "[", "\"\<file\>\"", "]"}], "]"}]}], ",", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"release", "[", "\"\<file\>\"", "]"}], ",", 
        RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"release", "[", "\"\<current\>\"", "]"}], "=", 
        RowBox[{"Import", "@", 
         RowBox[{"release", "[", "\"\<file\>\"", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"SameQ", "@@", 
           RowBox[{"(", 
            RowBox[{"release", "/@", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"release", "[", "\"\<newest\>\"", "]"}], ",", 
               RowBox[{"release", "[", "\"\<current\>\"", "]"}]}], "}"}]}], 
            ")"}]}]}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"ChoiceDialog", "[", 
            RowBox[{
             RowBox[{"Column", "@", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Update Available for ThinFilmNLS package\\n\>\"", ",", 
                RowBox[{"\"\<Current:\\n\>\"", "<>", 
                 RowBox[{"release", "@", 
                  RowBox[{"release", "[", "\"\<current\>\"", "]"}]}]}], ",", 
                RowBox[{"\"\<Available:\\n\>\"", "<>", 
                 RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], ",", 
                "\[IndentingNewLine]", 
                "\"\<\\n\\nWARNING: \\nUpdating will Quit[] the current \
Mathematica Kernel\>\"", ",", 
                "\"\<Any unsaved symbol definitions will be lost\>\"", ","}], 
               "}"}]}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\"\<Update\>\"", "\[Rule]", "True"}], ",", 
               RowBox[{"\"\<Cancel\>\"", "\[Rule]", "False"}]}], "}"}]}], 
            "]"}], ",", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"zipfile", "=", 
              RowBox[{"URLSave", "[", 
               RowBox[{
               "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", 
                ",", 
                RowBox[{"FileNameJoin", "[", 
                 RowBox[{"{", 
                  RowBox[{
                  "$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], 
                  "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"DialogInput", "[", 
                RowBox[{"DialogNotebook", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"TextCell", "[", "\"\<Click to proceed\>\"", "]"}],
                    ",", 
                   RowBox[{"Button", "[", 
                    RowBox[{"\"\<Proceed\>\"", ",", 
                    RowBox[{"DialogReturn", "[", "1", "]"}]}], "]"}]}], "}"}],
                  "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{"ZipExtractArchive", "[", 
              RowBox[{"zipfile", ",", 
               RowBox[{"DirectoryName", "[", 
                RowBox[{"Directory", "[", "]"}], "]"}], ",", 
               RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}], ",", 
               RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Export", "[", 
              RowBox[{
               RowBox[{"release", "[", "\"\<file\>\"", "]"}], ",", 
               RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"DeleteFile", "[", "zipfile", "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"Exit", "[", "]"}]}], "}"}]}], "]"}]}], "]"}]}]}], 
     "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetDirectory", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6001265331410255`*^9, 3.6001265331410255`*^9}, {
   3.600126565477071*^9, 3.6001266029391255`*^9}, {3.600126849039474*^9, 
   3.6001268850245256`*^9}, {3.6001780839735794`*^9, 
   3.6001781398716593`*^9}, {3.600178456674111*^9, 3.600178730659501*^9}, {
   3.600178767631553*^9, 3.600178842656658*^9}, {3.600178886687722*^9, 
   3.6001788992497396`*^9}, {3.600178953473816*^9, 3.60017899904488*^9}, {
   3.6001790668449764`*^9, 3.600179186427145*^9}, {3.6001792195371923`*^9, 
   3.600179235322215*^9}, {3.6001793059973154`*^9, 3.600179408445462*^9}, {
   3.6001794459925156`*^9, 3.600179494758586*^9}, {3.6001795530216703`*^9, 
   3.600179604061743*^9}, {3.6001796536588125`*^9, 3.6001796723098392`*^9}, {
   3.600180003615307*^9, 3.6001800126153193`*^9}, {3.60018026069567*^9, 
   3.60018028786371*^9}, {3.6001803543418055`*^9, 3.60018046294896*^9}, {
   3.6001804962610064`*^9, 3.6001804964410067`*^9}, {3.600180589031139*^9, 
   3.600180589221139*^9}, {3.600180760056384*^9, 3.60018080573645*^9}, 
   3.6001808503145137`*^9, {3.6001808980605807`*^9, 3.600180905980592*^9}, {
   3.6001810034507313`*^9, 3.600181012704745*^9}, {3.6001811394899254`*^9, 
   3.600181139929926*^9}, {3.6001812244500456`*^9, 3.600181242490071*^9}, 
   3.6001812761451178`*^9, 3.6001813163211765`*^9, {3.600181387249278*^9, 
   3.600181416603319*^9}, {3.600181479094407*^9, 3.600181507315446*^9}, {
   3.6001815454175014`*^9, 3.6001815716045384`*^9}, {3.6001816331816278`*^9, 
   3.600181660089666*^9}, {3.600181774788833*^9, 3.600181817673894*^9}, 
   3.600181861244955*^9, {3.600181981715126*^9, 3.600181995349145*^9}, {
   3.6001820462102165`*^9, 3.6001820728182554`*^9}, {3.600182109114307*^9, 
   3.6001821133243127`*^9}, {3.600182167059389*^9, 3.600182209160448*^9}, {
   3.60018231050959*^9, 3.600182311589592*^9}, {3.60018239584871*^9, 
   3.6001824054787235`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileExistsQ", "@", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6001818500349393`*^9, 3.600181854784946*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6001818557049475`*^9, 3.600181877622978*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZipExtractArchive", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
    "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
    "]"}], ",", 
   RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}], ",", 
   RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6001818922629986`*^9, 3.600181931063053*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Extracting archive \"\>", 
   "\[InvisibleSpace]", "\<\"C:\\\\Users\\\\Dan O'Brien\\\\AppData\\\\Local\\\
\\Temp\\\\ThinFilmNLS.zip\"\>"}],
  SequenceForm[
  "Extracting archive ", 
   "C:\\Users\\Dan O'Brien\\AppData\\Local\\Temp\\ThinFilmNLS.zip"],
  Editable->False]], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/Indices.m\"\>"], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/Indices.nb\"\>"], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819315030537`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931523054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181931583054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931623054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181931663054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931703054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819317430544`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819317930546`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819318430543`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819318730545`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819319230547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819319630547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932013055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181932053055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932103055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819321630545`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_Si_0.2-6.6eV.txt\"\>"], "Print",
 CellChangeTimes->{3.6001819322130547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_ptcdi-c8_1500-3500cm-1.txt\"\>"], \
"Print",
 CellChangeTimes->{3.600181932223055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_ptcdi-c8_250-1100nm.txt\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/DownValues/InputTransferC.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/DownValues/OutputTransferC.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Figures/Fig1.TIF\"\>"], "Print",
 CellChangeTimes->{3.600181932243055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Figures/Fig1.jpg\"\>"], "Print",
 CellChangeTimes->{3.6001819322530546`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/InterfacialThinFilmInterferenceModel.m\"\
\>"], "Print",
 CellChangeTimes->{3.600181932263055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Kernel/init.m\"\>"], "Print",
 CellChangeTimes->{3.600181932273055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/KramersKronigOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.600181932273055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/NumericalOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.6001819322830553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Scrap.m\"\>"], "Print",
 CellChangeTimes->{3.6001819322830553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/ThinFilmNLS.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/TransferMatrixFormalism.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Usages/InterfacialThinFilmInterferenceModel.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Usages/InterfacialThinFilmInterferenceModel.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Usages/TransferMatrixFormalism.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Usages/TransferMatrixFormalism.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Guides/Thin Film \
Interference Model.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Guides/Transfer \
Matrix Formalism.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Index/_4.cfs\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Index/segments.gen\
\"\>"], "Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Index/segments_b\"\
\>"], "Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesS.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesSIIv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesSIv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AzimuthAngle.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.600181932343055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/DetectionSide.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932343055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ExternalTransferC.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/FresnelA.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/FresnelL.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/GaussianOSC.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
ImKramersKronigTransformRe.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/Incidence.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InputTransferC.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InterfaceSide.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InternalTransferC.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
LocalFieldsFromLimits.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/LorentzianOSC.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
NonlinearPolarization.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/OutputTransferC.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/PhaseMatchAngle.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/PhaseMv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ReflectBottomS.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ReflectTopS.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/RefractionAngle.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/RefractionMv.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/SheetThickness.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
TransferCoefficientMethod.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/TransmitBottomS.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/TransmitTopS.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.600181932433055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/VoigtOSC.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/_6.cfs\"\>"], "Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/segments.gen\"\>"], "Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/segments_f\"\>"], "Print",
 CellChangeTimes->{3.6001819324530554`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Tutorials/Methods \
to Compute Input Transfer Coefficients.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819324530554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Tutorials/Nonlinear Spectroscopy of Thin \
Film Systems.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932463055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Tutorials/ThinFilmNLSOverview.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932463055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/PacletInfo.m\"\>"], "Print",
 CellChangeTimes->{3.600181932463055*^9}]
}, Open  ]],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\"\
\>"], "Output",
 CellChangeTimes->{{3.600181908693022*^9, 3.600181932463055*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Import", "[", 
  "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6001811788149805`*^9, 3.6001811982190084`*^9}}],

Cell[BoxData["\"\<Release 0.0.3\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001812107790265`*^9, 3.6001812130090294`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "ZipExtractArchive"}]], "Input",
 CellChangeTimes->{{3.6001807267503357`*^9, 3.600180734464347*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"ZipExtractArchive[\\\"zipfile\\\", \\\"destdir\\\"]\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.6001807348943477`*^9},
 CellTags->"Info3600159134-3090016"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "ZipExtractArchive", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "ZipExtractArchive", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\<\"FilenameEncoding\"\>", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"\<\"ArchiveEncoding\"\>", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"\<\"Overwrite\"\>", "\[Rule]", "False"}], ",", 
           RowBox[{"Verbose", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[PacletManager`ZipExtractArchive],
  Editable->False]], "Print",
 CellChangeTimes->{3.6001807349043474`*^9},
 CellTags->"Info3600159134-3090016"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SameQ", "@@", 
  RowBox[{"{", 
   RowBox[{"\"\<Release 0.0.2\>\"", ",", "\"\<Release 0.0.2\>\""}], "}"}]}]], \
"Input",
 CellChangeTimes->{{3.600179412079468*^9, 3.6001794393625064`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.600179436302502*^9, 3.600179439742507*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "\"\<Release 0.0.2\\n\\n- initial stable version from local repository\>\"",
    ",", "\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""}], "}"}]], "Input",
 CellChangeTimes->{{3.600178975613847*^9, 3.6001789781448507`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"StringTrim", "[", 
   RowBox[{
    RowBox[{
    "URLFetch", "[", 
     "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}], ",", 
    RowBox[{"RegularExpression", "[", "\"\<\\n.*\>\"", "]"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.600178153832679*^9, 3.600178159053686*^9}, {
  3.6001781904747305`*^9, 3.600178192224733*^9}, {3.60017826052183*^9, 
  3.600178349749957*^9}, {3.6001784071220393`*^9, 3.6001784231120615`*^9}}],

Cell[BoxData["\"\<Release 0.0.2\>\""], "Input",
 CellChangeTimes->{{3.60017842902207*^9, 3.6001784301920714`*^9}}],

Cell[BoxData["\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001783390859413`*^9, 3.600178342469947*^9}}],

Cell[BoxData["\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001781733537064`*^9, 3.6001781760237103`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChoiceDialog", "[", 
  RowBox[{
   RowBox[{"TableForm", "@", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Update Available for ThinFilmNLS package\\n\>\"", ",", 
      "\"\<WARNING: \\nUpdating will Quit[] the current Mathematica Kernel \
more space taken up by this line so that I can test WindowSize->All\>\"", 
      ",", "\"\<Any unsaved symbol definitions will be lost\>\"", ",", 
      RowBox[{"\"\<Current:   \>\"", "<>", 
       RowBox[{"Import", "[", "zipheaderfile", "]"}]}], ",", 
      RowBox[{"\"\<Available: \>\"", "<>", "header"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Update\>\"", "\[Rule]", "True"}], ",", 
     RowBox[{"\"\<Cancel\>\"", "\[Rule]", "False"}]}], "}"}], ",", 
   RowBox[{"WindowSize", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6001765168973446`*^9, 3.6001765481873903`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Import", "::", "chtype"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"First argument \[NoBreak]\\!\\(zipheaderfile\\)\[NoBreak] \
is not a valid file, directory, or URL specification. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Import/chtype\\\", ButtonNote -> \
\\\"Import::chtype\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765793574343`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"Current:   \\\" <> $Failed\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765794074345`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"Available: \\\" <> header\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765794574347`*^9}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.6001765116673374`*^9, 3.6001765604814076`*^9}, 
   3.60017661143548*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", 
  "\"\<C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\\
TransferMatrixFormalism\\\\TransferMatrixFormalism.m\>\""}]], "Input",
 CellChangeTimes->{{3.600220507530759*^9, 3.6002205150617695`*^9}, {
  3.600221053996526*^9, 3.6002211411326485`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Release 0.0.2\\n- initial stable version from local \
repository\"\>"], "Print",
 CellChangeTimes->{{3.6002211421626496`*^9, 3.600221168674687*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\\
TransferMatrixFormalism\\\\\"\>"], "Print",
 CellChangeTimes->{{3.6002211421626496`*^9, 3.600221168674687*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Exit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.6001265282710185`*^9, 3.600126529981021*^9}, {
  3.600220875264275*^9, 3.6002208757942753`*^9}}],

Cell[BoxData["FileBaseName"], "Input",
 CellChangeTimes->{{3.6002206596229725`*^9, 3.6002206619729757`*^9}, {
  3.6002209751694155`*^9, 3.600220977579418*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.600217450820238*^9, 3.6002174533102417`*^9}}],

Cell[BoxData["URLJoin"], "Input",
 CellChangeTimes->{{3.6002178223277597`*^9, 3.6002178235077615`*^9}}],

Cell[BoxData["$Path"], "Input",
 CellChangeTimes->{{3.6001814269143333`*^9, 3.6001814339643435`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<http://massaricloud.chem.umn.edu/\>\"", ",", "\"\<ThinFilmNLS\>\""}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6002176764115543`*^9, 3.6002176918815765`*^9}}],

Cell[BoxData["\<\"http:\\\\massaricloud.chem.umn.edu\\\\ThinFilmNLS\"\>"], \
"Output",
 CellChangeTimes->{3.600217692401577*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Directory", "[", "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan O'Brien\\\\Documents\"\>"], "Output",
 CellChangeTimes->{3.6002177356216383`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Last", "@", 
  RowBox[{
  "FileNameSplit", "[", "\"\<C:\\\\Users\\\\Dan O'Brien\\\\Documents\\\\\>\"",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.6002174560302453`*^9, 3.60021747351127*^9}, {
  3.600217517652332*^9, 3.6002175220523376`*^9}, {3.600217739411643*^9, 
  3.6002177425326476`*^9}}],

Cell[BoxData["\<\"Documents\"\>"], "Output",
 CellChangeTimes->{{3.600217456630246*^9, 3.6002174738912706`*^9}, 
   3.6002175224823384`*^9, 3.600217743072648*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$UserBaseDirectory", ",", "\"\<Applications\>\"", ",", 
      "\"\<ThinFilmNLS\>\""}], "}"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"release", ",", "zipfile"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"release", "[", "filetext_String", "]"}], ":=", 
     RowBox[{"StringTrim", "[", 
      RowBox[{"filetext", ",", 
       RowBox[{"RegularExpression", "[", "\"\<\\n.*\>\"", "]"}]}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"release", "[", "\"\<newest\>\"", "]"}], "=", 
     RowBox[{
     "Import", "[", 
      "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"release", "[", "\"\<file\>\"", "]"}], "=", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directory", "[", "]"}], ",", "\"\<releasenotes.txt\>\""}], 
       "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"FileExistsQ", "[", 
        RowBox[{"release", "[", "\"\<file\>\"", "]"}], "]"}]}], ",", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"release", "[", "\"\<file\>\"", "]"}], ",", 
        RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"release", "[", "\"\<current\>\"", "]"}], "=", 
        RowBox[{"Import", "@", 
         RowBox[{"release", "[", "\"\<file\>\"", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"SameQ", "@@", 
           RowBox[{"(", 
            RowBox[{"release", "/@", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"release", "[", "\"\<newest\>\"", "]"}], ",", 
               RowBox[{"release", "[", "\"\<current\>\"", "]"}]}], "}"}]}], 
            ")"}]}]}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"ChoiceDialog", "[", 
            RowBox[{
             RowBox[{"Column", "@", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Update Available for ThinFilmNLS package\\n\>\"", ",", 
                RowBox[{"\"\<Current:\\n\>\"", "<>", 
                 RowBox[{"release", "@", 
                  RowBox[{"release", "[", "\"\<current\>\"", "]"}]}]}], ",", 
                RowBox[{"\"\<Available:\\n\>\"", "<>", 
                 RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], ",", 
                "\[IndentingNewLine]", 
                "\"\<\\n\\nWARNING: \\nUpdating will Quit[] the current \
Mathematica Kernel\>\"", ",", 
                "\"\<Any unsaved symbol definitions will be lost\>\"", ","}], 
               "}"}]}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\"\<Update\>\"", "\[Rule]", "True"}], ",", 
               RowBox[{"\"\<Cancel\>\"", "\[Rule]", "False"}]}], "}"}]}], 
            "]"}], ",", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"zipfile", "=", 
              RowBox[{"URLSave", "[", 
               RowBox[{
               "\"\<http://massaricloud.chem.umn.edu/ThinFilmNLS.zip\>\"", 
                ",", 
                RowBox[{"FileNameJoin", "[", 
                 RowBox[{"{", 
                  RowBox[{
                  "$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], 
                  "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"DialogInput", "[", 
                RowBox[{"DialogNotebook", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"TextCell", "[", "\"\<Click to proceed\>\"", "]"}],
                    ",", 
                   RowBox[{"Button", "[", 
                    RowBox[{"\"\<Proceed\>\"", ",", 
                    RowBox[{"DialogReturn", "[", "1", "]"}]}], "]"}]}], "}"}],
                  "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{"ZipExtractArchive", "[", 
              RowBox[{"zipfile", ",", 
               RowBox[{"DirectoryName", "[", 
                RowBox[{"Directory", "[", "]"}], "]"}], ",", 
               RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}], ",", 
               RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Export", "[", 
              RowBox[{
               RowBox[{"release", "[", "\"\<file\>\"", "]"}], ",", 
               RowBox[{"release", "[", "\"\<newest\>\"", "]"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"DeleteFile", "[", "zipfile", "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"Exit", "[", "]"}]}], "}"}]}], "]"}]}], "]"}]}]}], 
     "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetDirectory", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6001265331410255`*^9, 3.6001265331410255`*^9}, {
   3.600126565477071*^9, 3.6001266029391255`*^9}, {3.600126849039474*^9, 
   3.6001268850245256`*^9}, {3.6001780839735794`*^9, 
   3.6001781398716593`*^9}, {3.600178456674111*^9, 3.600178730659501*^9}, {
   3.600178767631553*^9, 3.600178842656658*^9}, {3.600178886687722*^9, 
   3.6001788992497396`*^9}, {3.600178953473816*^9, 3.60017899904488*^9}, {
   3.6001790668449764`*^9, 3.600179186427145*^9}, {3.6001792195371923`*^9, 
   3.600179235322215*^9}, {3.6001793059973154`*^9, 3.600179408445462*^9}, {
   3.6001794459925156`*^9, 3.600179494758586*^9}, {3.6001795530216703`*^9, 
   3.600179604061743*^9}, {3.6001796536588125`*^9, 3.6001796723098392`*^9}, {
   3.600180003615307*^9, 3.6001800126153193`*^9}, {3.60018026069567*^9, 
   3.60018028786371*^9}, {3.6001803543418055`*^9, 3.60018046294896*^9}, {
   3.6001804962610064`*^9, 3.6001804964410067`*^9}, {3.600180589031139*^9, 
   3.600180589221139*^9}, {3.600180760056384*^9, 3.60018080573645*^9}, 
   3.6001808503145137`*^9, {3.6001808980605807`*^9, 3.600180905980592*^9}, {
   3.6001810034507313`*^9, 3.600181012704745*^9}, {3.6001811394899254`*^9, 
   3.600181139929926*^9}, {3.6001812244500456`*^9, 3.600181242490071*^9}, 
   3.6001812761451178`*^9, 3.6001813163211765`*^9, {3.600181387249278*^9, 
   3.600181416603319*^9}, {3.600181479094407*^9, 3.600181507315446*^9}, {
   3.6001815454175014`*^9, 3.6001815716045384`*^9}, {3.6001816331816278`*^9, 
   3.600181660089666*^9}, {3.600181774788833*^9, 3.600181817673894*^9}, 
   3.600181861244955*^9, {3.600181981715126*^9, 3.600181995349145*^9}, {
   3.6001820462102165`*^9, 3.6001820728182554`*^9}, {3.600182109114307*^9, 
   3.6001821133243127`*^9}, {3.600182167059389*^9, 3.600182209160448*^9}, {
   3.60018231050959*^9, 3.600182311589592*^9}, {3.60018239584871*^9, 
   3.6001824054787235`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileExistsQ", "@", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6001818500349393`*^9, 3.600181854784946*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6001818557049475`*^9, 3.600181877622978*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZipExtractArchive", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$TemporaryDirectory", ",", "\"\<ThinFilmNLS.zip\>\""}], "}"}], 
    "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
    "]"}], ",", 
   RowBox[{"\"\<Overwrite\>\"", "\[Rule]", "True"}], ",", 
   RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6001818922629986`*^9, 3.600181931063053*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Extracting archive \"\>", 
   "\[InvisibleSpace]", "\<\"C:\\\\Users\\\\Dan O'Brien\\\\AppData\\\\Local\\\
\\Temp\\\\ThinFilmNLS.zip\"\>"}],
  SequenceForm[
  "Extracting archive ", 
   "C:\\Users\\Dan O'Brien\\AppData\\Local\\Temp\\ThinFilmNLS.zip"],
  Editable->False]], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/Indices.m\"\>"], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/Indices.nb\"\>"], "Print",
 CellChangeTimes->{3.600181931493054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819315030537`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931523054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181931583054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yyzz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931623054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181931663054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181931703054*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819317430544`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[IR, yzyz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819317930546`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819318430543`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819318730545`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.6001819319230547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yyzz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819319630547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, 295].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932013055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, \
295]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.600181932053055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, 2].m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932103055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/TQzLISTex[VIS, yzyz, \
2]EXTENDEDRANGE.m\"\>"], "Print",
 CellChangeTimes->{3.6001819321630545`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_Si_0.2-6.6eV.txt\"\>"], "Print",
 CellChangeTimes->{3.6001819322130547`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_ptcdi-c8_1500-3500cm-1.txt\"\>"], \
"Print",
 CellChangeTimes->{3.600181932223055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Data/n_ptcdi-c8_250-1100nm.txt\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/DownValues/InputTransferC.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/DownValues/OutputTransferC.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932233055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Figures/Fig1.TIF\"\>"], "Print",
 CellChangeTimes->{3.600181932243055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Figures/Fig1.jpg\"\>"], "Print",
 CellChangeTimes->{3.6001819322530546`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/InterfacialThinFilmInterferenceModel.m\"\
\>"], "Print",
 CellChangeTimes->{3.600181932263055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Kernel/init.m\"\>"], "Print",
 CellChangeTimes->{3.600181932273055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/KramersKronigOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.600181932273055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/NumericalOscillators.m\"\>"], "Print",
 CellChangeTimes->{3.6001819322830553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Scrap.m\"\>"], "Print",
 CellChangeTimes->{3.6001819322830553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/ThinFilmNLS.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/TransferMatrixFormalism.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Usages/InterfacialThinFilmInterferenceModel.m\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Usages/InterfacialThinFilmInterferenceModel.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Usages/TransferMatrixFormalism.m\"\>"], \
"Print",
 CellChangeTimes->{3.600181932293055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Usages/TransferMatrixFormalism.nb\"\>"], \
"Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Guides/Thin Film \
Interference Model.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Guides/Transfer \
Matrix Formalism.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Index/_4.cfs\"\>"], "Print",
 CellChangeTimes->{3.6001819323230553`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Index/segments.gen\
\"\>"], "Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Index/segments_b\"\
\>"], "Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesS.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesSIIv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AbelesSIv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932333055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/AzimuthAngle.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.600181932343055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/DetectionSide.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932343055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ExternalTransferC.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/FresnelA.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/FresnelL.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932353055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/GaussianOSC.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
ImKramersKronigTransformRe.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/Incidence.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932363055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InputTransferC.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InterfaceSide.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/InternalTransferC.nb\
\"\>"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
LocalFieldsFromLimits.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932383055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/LorentzianOSC.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
NonlinearPolarization.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/OutputTransferC.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/PhaseMatchAngle.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/PhaseMv.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932393055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ReflectBottomS.nb\"\>\
"], "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/ReflectTopS.nb\"\>"],\
 "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/RefractionAngle.nb\"\
\>"], "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/RefractionMv.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.6001819324130554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/SheetThickness.nb\"\>\
"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/\
TransferCoefficientMethod.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/TransmitBottomS.nb\"\
\>"], "Print",
 CellChangeTimes->{3.600181932423055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/TransmitTopS.nb\"\>"]\
, "Print",
 CellChangeTimes->{3.600181932433055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/ReferencePages/Symbols/VoigtOSC.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/_6.cfs\"\>"], "Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/segments.gen\"\>"], "Print",
 CellChangeTimes->{3.600181932443055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/SpellIndex/segments_f\"\>"], "Print",
 CellChangeTimes->{3.6001819324530554`*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/Documentation/English/Tutorials/Methods \
to Compute Input Transfer Coefficients.nb\"\>"], "Print",
 CellChangeTimes->{3.6001819324530554`*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Tutorials/Nonlinear Spectroscopy of Thin \
Film Systems.nb\"\>"], "Print",
 CellChangeTimes->{3.600181932463055*^9}],

Cell[BoxData["\<\"   ... \
ThinFilmNLS/Documentation/English/Tutorials/ThinFilmNLSOverview.nb\"\>"], \
"Print",
 CellChangeTimes->{3.600181932463055*^9}],

Cell[BoxData["\<\"   ... ThinFilmNLS/PacletInfo.m\"\>"], "Print",
 CellChangeTimes->{3.600181932463055*^9}]
}, Open  ]],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\ThinFilmNLS\"\
\>"], "Output",
 CellChangeTimes->{{3.600181908693022*^9, 3.600181932463055*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Import", "[", 
  "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6001811788149805`*^9, 3.6001811982190084`*^9}}],

Cell[BoxData["\"\<Release 0.0.3\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001812107790265`*^9, 3.6001812130090294`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "ZipExtractArchive"}]], "Input",
 CellChangeTimes->{{3.6001807267503357`*^9, 3.600180734464347*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"ZipExtractArchive[\\\"zipfile\\\", \\\"destdir\\\"]\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.6001807348943477`*^9},
 CellTags->"Info3600159134-3090016"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "ZipExtractArchive", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "ZipExtractArchive", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\<\"FilenameEncoding\"\>", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"\<\"ArchiveEncoding\"\>", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"\<\"Overwrite\"\>", "\[Rule]", "False"}], ",", 
           RowBox[{"Verbose", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[PacletManager`ZipExtractArchive],
  Editable->False]], "Print",
 CellChangeTimes->{3.6001807349043474`*^9},
 CellTags->"Info3600159134-3090016"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SameQ", "@@", 
  RowBox[{"{", 
   RowBox[{"\"\<Release 0.0.2\>\"", ",", "\"\<Release 0.0.2\>\""}], "}"}]}]], \
"Input",
 CellChangeTimes->{{3.600179412079468*^9, 3.6001794393625064`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.600179436302502*^9, 3.600179439742507*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "\"\<Release 0.0.2\\n\\n- initial stable version from local repository\>\"",
    ",", "\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""}], "}"}]], "Input",
 CellChangeTimes->{{3.600178975613847*^9, 3.6001789781448507`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"StringTrim", "[", 
   RowBox[{
    RowBox[{
    "URLFetch", "[", 
     "\"\<http://massaricloud.chem.umn.edu/releasenotes.txt\>\"", "]"}], ",", 
    RowBox[{"RegularExpression", "[", "\"\<\\n.*\>\"", "]"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.600178153832679*^9, 3.600178159053686*^9}, {
  3.6001781904747305`*^9, 3.600178192224733*^9}, {3.60017826052183*^9, 
  3.600178349749957*^9}, {3.6001784071220393`*^9, 3.6001784231120615`*^9}}],

Cell[BoxData["\"\<Release 0.0.2\>\""], "Input",
 CellChangeTimes->{{3.60017842902207*^9, 3.6001784301920714`*^9}}],

Cell[BoxData["\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001783390859413`*^9, 3.600178342469947*^9}}],

Cell[BoxData["\"\<Release 0.0.2\\n\\n- initial stable version from local \
repository\>\""], "Input",
 CellChangeTimes->{{3.6001781733537064`*^9, 3.6001781760237103`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChoiceDialog", "[", 
  RowBox[{
   RowBox[{"TableForm", "@", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Update Available for ThinFilmNLS package\\n\>\"", ",", 
      "\"\<WARNING: \\nUpdating will Quit[] the current Mathematica Kernel \
more space taken up by this line so that I can test WindowSize->All\>\"", 
      ",", "\"\<Any unsaved symbol definitions will be lost\>\"", ",", 
      RowBox[{"\"\<Current:   \>\"", "<>", 
       RowBox[{"Import", "[", "zipheaderfile", "]"}]}], ",", 
      RowBox[{"\"\<Available: \>\"", "<>", "header"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Update\>\"", "\[Rule]", "True"}], ",", 
     RowBox[{"\"\<Cancel\>\"", "\[Rule]", "False"}]}], "}"}], ",", 
   RowBox[{"WindowSize", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6001765168973446`*^9, 3.6001765481873903`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Import", "::", "chtype"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"First argument \[NoBreak]\\!\\(zipheaderfile\\)\[NoBreak] \
is not a valid file, directory, or URL specification. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Import/chtype\\\", ButtonNote -> \
\\\"Import::chtype\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765793574343`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"Current:   \\\" <> $Failed\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765794074345`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"Available: \\\" <> header\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6001765048173275`*^9, 3.600176548717391*^9}, 
   3.6001765794574347`*^9}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.6001765116673374`*^9, 3.6001765604814076`*^9}, 
   3.60017661143548*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{707, 817},
WindowMargins->{{598, Automatic}, {Automatic, 64}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3600069841-5683841"->{
  Cell[23336, 676, 157, 3, 40, "Print",
   CellTags->"Info3600069841-5683841"]},
 "Info3600067201-5951972"->{
  Cell[30387, 867, 321, 6, 58, "Print",
   CellTags->"Info3600067201-5951972"],
  Cell[30711, 875, 1364, 37, 77, "Print",
   CellTags->"Info3600067201-5951972"]},
 "Info3600064673-6328747"->{
  Cell[63079, 1624, 997, 15, 77, "Print",
   CellTags->"Info3600064673-6328747"]},
 "Info3600065094-5951972"->{
  Cell[64413, 1652, 432, 8, 75, "Print",
   CellTags->"Info3600065094-5951972"],
  Cell[64848, 1662, 1182, 33, 53, "Print",
   CellTags->"Info3600065094-5951972"]},
 "Info3600159134-3090016"->{
  Cell[93616, 2451, 202, 4, 40, "Print",
   CellTags->"Info3600159134-3090016"],
  Cell[93821, 2457, 1322, 34, 77, "Print",
   CellTags->"Info3600159134-3090016"],
  Cell[122709, 3239, 202, 4, 40, "Print",
   CellTags->"Info3600159134-3090016"],
  Cell[122914, 3245, 1322, 34, 77, "Print",
   CellTags->"Info3600159134-3090016"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3600069841-5683841", 128988, 3408},
 {"Info3600067201-5951972", 129098, 3411},
 {"Info3600064673-6328747", 129290, 3416},
 {"Info3600065094-5951972", 129402, 3419},
 {"Info3600159134-3090016", 129596, 3424}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 318, 9, 52, "Input"],
Cell[CellGroupData[{
Cell[900, 33, 281, 6, 31, "Input"],
Cell[1184, 41, 968, 24, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2189, 70, 342, 7, 52, "Input"],
Cell[2534, 79, 176, 2, 30, "Output"]
}, Open  ]],
Cell[2725, 84, 804, 23, 92, "Input"],
Cell[CellGroupData[{
Cell[3554, 111, 720, 16, 72, "Input"],
Cell[4277, 129, 202, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4516, 137, 163, 3, 31, "Input"],
Cell[4682, 142, 192, 3, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4911, 150, 501, 11, 72, "Input"],
Cell[5415, 163, 168, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5620, 170, 290, 5, 31, "Input"],
Cell[5913, 177, 168, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6118, 184, 184, 4, 31, "Input"],
Cell[6305, 190, 76, 1, 30, "Output"]
}, Open  ]],
Cell[6396, 194, 144, 1, 31, InheritFromParent],
Cell[6543, 197, 263, 7, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[6831, 208, 211, 4, 31, "Input"],
Cell[7045, 214, 96, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7178, 220, 122, 2, 31, "Input"],
Cell[7303, 224, 556, 11, 21, "Message"]
}, Open  ]],
Cell[7874, 238, 500, 8, 31, "Input"],
Cell[8377, 248, 190, 3, 31, "Input"],
Cell[8570, 253, 173, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[8768, 259, 506, 9, 31, "Input"],
Cell[9277, 270, 1032, 25, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10346, 300, 310, 7, 31, "Input"],
Cell[10659, 309, 127, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10823, 316, 546, 15, 72, "Input"],
Cell[11372, 333, 201, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11610, 341, 320, 8, 52, "Input"],
Cell[11933, 351, 245, 4, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12215, 360, 105, 1, 31, "Input"],
Cell[12323, 363, 270, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12630, 373, 134, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[12789, 379, 10544, 295, 517, "Print"],
Cell[23336, 676, 157, 3, 40, "Print",
 CellTags->"Info3600069841-5683841"]
}, Open  ]]
}, Open  ]],
Cell[23520, 683, 102, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[23647, 688, 154, 2, 31, "Input"],
Cell[23804, 692, 1254, 23, 107, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25095, 720, 38, 0, 31, "Input"],
Cell[25136, 722, 381, 7, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25554, 734, 367, 8, 72, "Input"],
Cell[25924, 744, 372, 8, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26333, 757, 721, 13, 52, "Input"],
Cell[27057, 772, 484, 10, 21, "Message"],
Cell[27544, 784, 781, 14, 56, "Message"],
Cell[28328, 800, 102, 1, 30, "Output"]
}, Open  ]],
Cell[28445, 804, 121, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[28591, 810, 205, 4, 31, InheritFromParent],
Cell[28799, 816, 176, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29012, 823, 130, 2, 31, "Input"],
Cell[29145, 827, 166, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29348, 836, 497, 12, 72, "Input"],
Cell[29848, 850, 303, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30188, 860, 174, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[30387, 867, 321, 6, 58, "Print",
 CellTags->"Info3600067201-5951972"],
Cell[30711, 875, 1364, 37, 77, "Print",
 CellTags->"Info3600067201-5951972"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32124, 918, 134, 2, 31, "Input"],
Cell[32261, 922, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32386, 928, 138, 2, 31, "Input"],
Cell[32527, 932, 1271, 23, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33835, 960, 190, 3, 31, "Input"],
Cell[34028, 965, 74, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34139, 971, 450, 7, 52, "Input"],
Cell[34592, 980, 209, 3, 43, "Print"],
Cell[34804, 985, 999, 18, 158, "Message"],
Cell[35806, 1005, 505, 10, 21, "Message"],
Cell[36314, 1017, 595, 11, 39, "Message"],
Cell[36912, 1030, 210, 3, 43, "Print"],
Cell[37125, 1035, 998, 18, 158, "Message"],
Cell[38126, 1055, 503, 10, 21, "Message"],
Cell[38632, 1067, 595, 11, 39, "Message"],
Cell[39230, 1080, 226, 3, 62, "Print"],
Cell[39459, 1085, 1018, 19, 158, "Message"],
Cell[40480, 1106, 555, 11, 21, "Message"],
Cell[41038, 1119, 505, 10, 21, "Message"],
Cell[41546, 1131, 554, 11, 21, "Message"],
Cell[42103, 1144, 593, 11, 39, "Message"],
Cell[42699, 1157, 555, 11, 21, "Message"],
Cell[CellGroupData[{
Cell[43279, 1172, 239, 3, 62, "Print"],
Cell[43521, 1177, 224, 3, 62, "Print"],
Cell[43748, 1182, 237, 3, 62, "Print"],
Cell[43988, 1187, 226, 3, 62, "Print"],
Cell[44217, 1192, 239, 3, 62, "Print"],
Cell[44459, 1197, 224, 3, 62, "Print"],
Cell[44686, 1202, 237, 3, 62, "Print"],
Cell[44926, 1207, 225, 3, 62, "Print"],
Cell[45154, 1212, 238, 3, 62, "Print"],
Cell[45395, 1217, 223, 3, 62, "Print"],
Cell[45621, 1222, 238, 3, 62, "Print"],
Cell[45862, 1227, 225, 3, 62, "Print"],
Cell[46090, 1232, 238, 3, 62, "Print"],
Cell[46331, 1237, 225, 3, 62, "Print"],
Cell[46559, 1242, 238, 3, 62, "Print"],
Cell[46800, 1247, 218, 3, 62, "Print"],
Cell[47021, 1252, 228, 3, 62, "Print"],
Cell[47252, 1257, 225, 3, 62, "Print"],
Cell[47480, 1262, 222, 3, 62, "Print"],
Cell[47705, 1267, 223, 3, 62, "Print"],
Cell[47931, 1272, 211, 3, 43, "Print"],
Cell[48145, 1277, 211, 3, 43, "Print"],
Cell[48359, 1282, 230, 3, 62, "Print"],
Cell[48592, 1287, 208, 3, 43, "Print"],
Cell[48803, 1292, 218, 3, 62, "Print"],
Cell[49024, 1297, 214, 3, 62, "Print"],
Cell[49241, 1302, 199, 3, 43, "Print"],
Cell[49443, 1307, 205, 3, 43, "Print"],
Cell[49651, 1312, 217, 3, 62, "Print"],
Cell[49871, 1317, 240, 3, 62, "Print"],
Cell[50114, 1322, 239, 3, 62, "Print"],
Cell[50356, 1327, 225, 3, 62, "Print"],
Cell[50584, 1332, 226, 3, 62, "Print"],
Cell[50813, 1337, 263, 4, 62, "Print"],
Cell[51079, 1343, 260, 4, 62, "Print"],
Cell[51342, 1349, 235, 3, 62, "Print"],
Cell[51580, 1354, 241, 3, 62, "Print"],
Cell[51824, 1359, 239, 3, 62, "Print"],
Cell[52066, 1364, 261, 4, 62, "Print"],
Cell[52330, 1370, 264, 4, 62, "Print"],
Cell[52597, 1376, 263, 4, 62, "Print"],
Cell[52863, 1382, 266, 4, 62, "Print"],
Cell[53132, 1388, 267, 4, 62, "Print"],
Cell[53402, 1394, 271, 4, 62, "Print"],
Cell[53676, 1400, 262, 4, 62, "Print"],
Cell[53941, 1406, 260, 4, 62, "Print"],
Cell[54204, 1412, 263, 4, 62, "Print"],
Cell[54470, 1418, 278, 4, 62, "Print"],
Cell[54751, 1424, 263, 4, 62, "Print"],
Cell[55017, 1430, 268, 4, 62, "Print"],
Cell[55288, 1436, 267, 4, 62, "Print"],
Cell[55558, 1442, 271, 4, 62, "Print"],
Cell[55832, 1448, 275, 4, 62, "Print"],
Cell[56110, 1454, 267, 4, 62, "Print"],
Cell[56380, 1460, 275, 4, 62, "Print"],
Cell[56658, 1466, 267, 4, 62, "Print"],
Cell[56928, 1472, 267, 4, 62, "Print"],
Cell[57198, 1478, 261, 4, 62, "Print"],
Cell[57462, 1484, 268, 4, 62, "Print"],
Cell[57733, 1490, 265, 4, 62, "Print"],
Cell[58001, 1496, 269, 4, 62, "Print"],
Cell[58273, 1502, 266, 4, 62, "Print"],
Cell[58542, 1508, 268, 4, 62, "Print"],
Cell[58813, 1514, 279, 4, 62, "Print"],
Cell[59095, 1520, 269, 4, 62, "Print"],
Cell[59367, 1526, 266, 4, 62, "Print"],
Cell[59636, 1532, 262, 4, 62, "Print"],
Cell[59901, 1538, 240, 3, 62, "Print"],
Cell[60144, 1543, 246, 3, 62, "Print"],
Cell[60393, 1548, 244, 3, 62, "Print"],
Cell[60640, 1553, 284, 4, 62, "Print"],
Cell[60927, 1559, 281, 4, 62, "Print"],
Cell[61211, 1565, 255, 4, 62, "Print"],
Cell[61469, 1571, 202, 3, 43, "Print"]
}, Open  ]],
Cell[61686, 1577, 277, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62000, 1586, 40, 0, 31, "Input"],
Cell[62043, 1588, 121, 1, 30, "Output"]
}, Open  ]],
Cell[62179, 1592, 124, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[62328, 1598, 204, 3, 31, "Input"],
Cell[62535, 1603, 209, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62781, 1612, 40, 0, 31, "Input"],
Cell[62824, 1614, 97, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62958, 1620, 118, 2, 31, "Input"],
Cell[63079, 1624, 997, 15, 77, "Print",
 CellTags->"Info3600064673-6328747"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64113, 1644, 275, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[64413, 1652, 432, 8, 75, "Print",
 CellTags->"Info3600065094-5951972"],
Cell[64848, 1662, 1182, 33, 53, "Print",
 CellTags->"Info3600065094-5951972"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66079, 1701, 143, 2, 31, "Input"],
Cell[66225, 1705, 96, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66358, 1711, 158, 2, 31, "Input"],
Cell[66519, 1715, 78, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66634, 1721, 104, 1, 31, "Input"],
Cell[66741, 1724, 106, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66884, 1730, 137, 2, 31, "Input"],
Cell[67024, 1734, 1532, 26, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68593, 1765, 108, 1, 31, "Input"],
Cell[68704, 1768, 342, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69083, 1780, 124, 2, 31, "Input"],
Cell[69210, 1784, 468, 10, 21, "Message"],
Cell[69681, 1796, 104, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69822, 1802, 284, 5, 52, "Input"],
Cell[70109, 1809, 232, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70378, 1818, 99, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[70502, 1823, 313, 6, 92, "Input"],
Cell[CellGroupData[{
Cell[70840, 1833, 166, 2, 43, "Print"],
Cell[71009, 1837, 216, 3, 43, "Print"]
}, Open  ]]
}, Open  ]],
Cell[71252, 1844, 171, 3, 31, "Input"],
Cell[71426, 1849, 159, 2, 31, "Input"],
Cell[71588, 1853, 94, 1, 31, "Input"],
Cell[71685, 1856, 103, 1, 31, "Input"],
Cell[71791, 1859, 101, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[71917, 1864, 248, 6, 31, "Input"],
Cell[72168, 1872, 128, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72333, 1879, 57, 1, 31, "Input"],
Cell[72393, 1882, 118, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72548, 1888, 318, 7, 31, InheritFromParent],
Cell[72869, 1897, 162, 2, 30, "Output"]
}, Open  ]],
Cell[73046, 1902, 7198, 152, 572, "Input"],
Cell[CellGroupData[{
Cell[80269, 2058, 259, 6, 31, "Input"],
Cell[80531, 2066, 99, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80667, 2072, 545, 13, 72, "Input"],
Cell[CellGroupData[{
Cell[81237, 2089, 371, 9, 23, "Print"],
Cell[81611, 2100, 109, 1, 23, "Print"],
Cell[81723, 2103, 110, 1, 23, "Print"],
Cell[81836, 2106, 130, 2, 23, "Print"],
Cell[81969, 2110, 141, 2, 23, "Print"],
Cell[82113, 2114, 126, 2, 23, "Print"],
Cell[82242, 2118, 139, 2, 23, "Print"],
Cell[82384, 2122, 128, 2, 23, "Print"],
Cell[82515, 2126, 141, 2, 23, "Print"],
Cell[82659, 2130, 128, 2, 23, "Print"],
Cell[82790, 2134, 141, 2, 23, "Print"],
Cell[82934, 2138, 131, 2, 23, "Print"],
Cell[83068, 2142, 144, 2, 23, "Print"],
Cell[83215, 2146, 129, 2, 23, "Print"],
Cell[83347, 2150, 142, 2, 23, "Print"],
Cell[83492, 2154, 129, 2, 23, "Print"],
Cell[83624, 2158, 142, 2, 23, "Print"],
Cell[83769, 2162, 127, 2, 23, "Print"],
Cell[83899, 2166, 142, 2, 23, "Print"],
Cell[84044, 2170, 120, 1, 23, "Print"],
Cell[84167, 2173, 130, 2, 23, "Print"],
Cell[84300, 2177, 127, 2, 23, "Print"],
Cell[84430, 2181, 124, 2, 23, "Print"],
Cell[84557, 2185, 125, 2, 23, "Print"],
Cell[84685, 2189, 111, 1, 23, "Print"],
Cell[84799, 2192, 113, 1, 23, "Print"],
Cell[84915, 2195, 135, 2, 23, "Print"],
Cell[85053, 2199, 108, 1, 23, "Print"],
Cell[85164, 2202, 121, 1, 23, "Print"],
Cell[85288, 2205, 119, 1, 23, "Print"],
Cell[85410, 2208, 104, 1, 23, "Print"],
Cell[85517, 2211, 108, 1, 23, "Print"],
Cell[85628, 2214, 120, 1, 23, "Print"],
Cell[85751, 2217, 142, 2, 23, "Print"],
Cell[85896, 2221, 143, 2, 23, "Print"],
Cell[86042, 2225, 129, 2, 23, "Print"],
Cell[86174, 2229, 132, 2, 23, "Print"],
Cell[86309, 2233, 159, 2, 23, "Print"],
Cell[86471, 2237, 156, 2, 23, "Print"],
Cell[86630, 2241, 133, 2, 23, "Print"],
Cell[86766, 2245, 137, 2, 23, "Print"],
Cell[86906, 2249, 135, 2, 23, "Print"],
Cell[87044, 2253, 154, 3, 23, "Print"],
Cell[87201, 2258, 157, 3, 23, "Print"],
Cell[87361, 2263, 156, 3, 23, "Print"],
Cell[87520, 2268, 159, 3, 23, "Print"],
Cell[87682, 2273, 160, 3, 23, "Print"],
Cell[87845, 2278, 164, 3, 23, "Print"],
Cell[88012, 2283, 155, 3, 23, "Print"],
Cell[88170, 2288, 155, 3, 23, "Print"],
Cell[88328, 2293, 158, 3, 23, "Print"],
Cell[88489, 2298, 173, 3, 43, "Print"],
Cell[88665, 2303, 156, 3, 23, "Print"],
Cell[88824, 2308, 161, 3, 23, "Print"],
Cell[88988, 2313, 160, 3, 23, "Print"],
Cell[89151, 2318, 164, 3, 23, "Print"],
Cell[89318, 2323, 168, 3, 43, "Print"],
Cell[89489, 2328, 160, 3, 23, "Print"],
Cell[89652, 2333, 168, 3, 43, "Print"],
Cell[89823, 2338, 162, 3, 23, "Print"],
Cell[89988, 2343, 162, 3, 23, "Print"],
Cell[90153, 2348, 154, 3, 23, "Print"],
Cell[90310, 2353, 163, 3, 23, "Print"],
Cell[90476, 2358, 160, 3, 23, "Print"],
Cell[90639, 2363, 164, 3, 23, "Print"],
Cell[90806, 2368, 161, 3, 23, "Print"],
Cell[90970, 2373, 161, 3, 23, "Print"],
Cell[91134, 2378, 172, 3, 62, "Print"],
Cell[91309, 2383, 162, 3, 23, "Print"],
Cell[91474, 2388, 159, 3, 23, "Print"],
Cell[91636, 2393, 155, 3, 23, "Print"],
Cell[91794, 2398, 136, 2, 23, "Print"],
Cell[91933, 2402, 142, 2, 23, "Print"],
Cell[92078, 2406, 142, 2, 23, "Print"],
Cell[92223, 2410, 180, 2, 43, "Print"],
Cell[92406, 2414, 177, 3, 43, "Print"],
Cell[92586, 2419, 153, 3, 23, "Print"],
Cell[92742, 2424, 107, 1, 23, "Print"]
}, Open  ]],
Cell[92864, 2428, 199, 3, 30, "Output"]
}, Open  ]],
Cell[93078, 2434, 188, 3, 31, "Input"],
Cell[93269, 2439, 168, 2, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[93462, 2445, 129, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[93616, 2451, 202, 4, 40, "Print",
 CellTags->"Info3600159134-3090016"],
Cell[93821, 2457, 1322, 34, 77, "Print",
 CellTags->"Info3600159134-3090016"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[95192, 2497, 211, 5, 31, InheritFromParent],
Cell[95406, 2504, 97, 1, 30, "Output"]
}, Open  ]],
Cell[95518, 2508, 293, 6, 52, InheritFromParent],
Cell[95814, 2516, 71, 1, 31, "Input"],
Cell[95888, 2519, 503, 11, 72, "Input"],
Cell[96394, 2532, 114, 1, 31, InheritFromParent],
Cell[96511, 2535, 169, 2, 31, InheritFromParent],
Cell[96683, 2539, 171, 2, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[96879, 2545, 875, 18, 152, "Input"],
Cell[97757, 2565, 550, 11, 21, "Message"],
Cell[98310, 2578, 558, 11, 21, "Message"],
Cell[98871, 2591, 557, 11, 21, "Message"],
Cell[99431, 2604, 127, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99595, 2611, 313, 6, 92, "Input"],
Cell[CellGroupData[{
Cell[99933, 2621, 166, 2, 43, "Print"],
Cell[100102, 2625, 216, 3, 43, "Print"]
}, Open  ]]
}, Open  ]],
Cell[100345, 2632, 171, 3, 31, "Input"],
Cell[100519, 2637, 159, 2, 31, "Input"],
Cell[100681, 2641, 94, 1, 31, "Input"],
Cell[100778, 2644, 103, 1, 31, "Input"],
Cell[100884, 2647, 101, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[101010, 2652, 248, 6, 31, "Input"],
Cell[101261, 2660, 128, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101426, 2667, 57, 1, 31, "Input"],
Cell[101486, 2670, 118, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101641, 2676, 318, 7, 31, InheritFromParent],
Cell[101962, 2685, 162, 2, 30, "Output"]
}, Open  ]],
Cell[102139, 2690, 7198, 152, 572, "Input"],
Cell[CellGroupData[{
Cell[109362, 2846, 259, 6, 31, "Input"],
Cell[109624, 2854, 99, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109760, 2860, 545, 13, 72, "Input"],
Cell[CellGroupData[{
Cell[110330, 2877, 371, 9, 23, "Print"],
Cell[110704, 2888, 109, 1, 23, "Print"],
Cell[110816, 2891, 110, 1, 23, "Print"],
Cell[110929, 2894, 130, 2, 23, "Print"],
Cell[111062, 2898, 141, 2, 23, "Print"],
Cell[111206, 2902, 126, 2, 23, "Print"],
Cell[111335, 2906, 139, 2, 23, "Print"],
Cell[111477, 2910, 128, 2, 23, "Print"],
Cell[111608, 2914, 141, 2, 23, "Print"],
Cell[111752, 2918, 128, 2, 23, "Print"],
Cell[111883, 2922, 141, 2, 23, "Print"],
Cell[112027, 2926, 131, 2, 23, "Print"],
Cell[112161, 2930, 144, 2, 23, "Print"],
Cell[112308, 2934, 129, 2, 23, "Print"],
Cell[112440, 2938, 142, 2, 23, "Print"],
Cell[112585, 2942, 129, 2, 23, "Print"],
Cell[112717, 2946, 142, 2, 23, "Print"],
Cell[112862, 2950, 127, 2, 23, "Print"],
Cell[112992, 2954, 142, 2, 23, "Print"],
Cell[113137, 2958, 120, 1, 23, "Print"],
Cell[113260, 2961, 130, 2, 23, "Print"],
Cell[113393, 2965, 127, 2, 23, "Print"],
Cell[113523, 2969, 124, 2, 23, "Print"],
Cell[113650, 2973, 125, 2, 23, "Print"],
Cell[113778, 2977, 111, 1, 23, "Print"],
Cell[113892, 2980, 113, 1, 23, "Print"],
Cell[114008, 2983, 135, 2, 23, "Print"],
Cell[114146, 2987, 108, 1, 23, "Print"],
Cell[114257, 2990, 121, 1, 23, "Print"],
Cell[114381, 2993, 119, 1, 23, "Print"],
Cell[114503, 2996, 104, 1, 23, "Print"],
Cell[114610, 2999, 108, 1, 23, "Print"],
Cell[114721, 3002, 120, 1, 23, "Print"],
Cell[114844, 3005, 142, 2, 23, "Print"],
Cell[114989, 3009, 143, 2, 23, "Print"],
Cell[115135, 3013, 129, 2, 23, "Print"],
Cell[115267, 3017, 132, 2, 23, "Print"],
Cell[115402, 3021, 159, 2, 23, "Print"],
Cell[115564, 3025, 156, 2, 23, "Print"],
Cell[115723, 3029, 133, 2, 23, "Print"],
Cell[115859, 3033, 137, 2, 23, "Print"],
Cell[115999, 3037, 135, 2, 23, "Print"],
Cell[116137, 3041, 154, 3, 23, "Print"],
Cell[116294, 3046, 157, 3, 23, "Print"],
Cell[116454, 3051, 156, 3, 23, "Print"],
Cell[116613, 3056, 159, 3, 23, "Print"],
Cell[116775, 3061, 160, 3, 23, "Print"],
Cell[116938, 3066, 164, 3, 23, "Print"],
Cell[117105, 3071, 155, 3, 23, "Print"],
Cell[117263, 3076, 155, 3, 23, "Print"],
Cell[117421, 3081, 158, 3, 23, "Print"],
Cell[117582, 3086, 173, 3, 43, "Print"],
Cell[117758, 3091, 156, 3, 23, "Print"],
Cell[117917, 3096, 161, 3, 23, "Print"],
Cell[118081, 3101, 160, 3, 23, "Print"],
Cell[118244, 3106, 164, 3, 23, "Print"],
Cell[118411, 3111, 168, 3, 43, "Print"],
Cell[118582, 3116, 160, 3, 23, "Print"],
Cell[118745, 3121, 168, 3, 43, "Print"],
Cell[118916, 3126, 162, 3, 23, "Print"],
Cell[119081, 3131, 162, 3, 23, "Print"],
Cell[119246, 3136, 154, 3, 23, "Print"],
Cell[119403, 3141, 163, 3, 23, "Print"],
Cell[119569, 3146, 160, 3, 23, "Print"],
Cell[119732, 3151, 164, 3, 23, "Print"],
Cell[119899, 3156, 161, 3, 23, "Print"],
Cell[120063, 3161, 161, 3, 23, "Print"],
Cell[120227, 3166, 172, 3, 62, "Print"],
Cell[120402, 3171, 162, 3, 23, "Print"],
Cell[120567, 3176, 159, 3, 23, "Print"],
Cell[120729, 3181, 155, 3, 23, "Print"],
Cell[120887, 3186, 136, 2, 23, "Print"],
Cell[121026, 3190, 142, 2, 23, "Print"],
Cell[121171, 3194, 142, 2, 23, "Print"],
Cell[121316, 3198, 180, 2, 43, "Print"],
Cell[121499, 3202, 177, 3, 43, "Print"],
Cell[121679, 3207, 153, 3, 23, "Print"],
Cell[121835, 3212, 107, 1, 23, "Print"]
}, Open  ]],
Cell[121957, 3216, 199, 3, 30, "Output"]
}, Open  ]],
Cell[122171, 3222, 188, 3, 31, "Input"],
Cell[122362, 3227, 168, 2, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[122555, 3233, 129, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[122709, 3239, 202, 4, 40, "Print",
 CellTags->"Info3600159134-3090016"],
Cell[122914, 3245, 1322, 34, 77, "Print",
 CellTags->"Info3600159134-3090016"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[124285, 3285, 211, 5, 31, InheritFromParent],
Cell[124499, 3292, 97, 1, 30, "Output"]
}, Open  ]],
Cell[124611, 3296, 293, 6, 52, InheritFromParent],
Cell[124907, 3304, 71, 1, 31, "Input"],
Cell[124981, 3307, 503, 11, 72, "Input"],
Cell[125487, 3320, 114, 1, 31, InheritFromParent],
Cell[125604, 3323, 169, 2, 31, InheritFromParent],
Cell[125776, 3327, 171, 2, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[125972, 3333, 875, 18, 152, "Input"],
Cell[126850, 3353, 550, 11, 21, "Message"],
Cell[127403, 3366, 558, 11, 21, "Message"],
Cell[127964, 3379, 557, 11, 21, "Message"],
Cell[128524, 3392, 127, 2, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

